home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / day.aut < prev    next >
Text File  |  1991-10-18  |  3KB  |  107 lines
  1.  
  2. ;「ＯＯまであとＸ日」というのを表示させたい時は以下のような設定をして下さい
  3. $1="第８６回医師国家試験"    ;「ＯＯ」のところに相当するものを記入
  4. %20=92                ;年(西暦2ｹﾀ)    -+
  5. %21=4                ;月        -+--「ＯＯ」のある年月日
  6. %22=4                ;日        -+
  7.  
  8. ;%937 : 年(西暦2ｹﾀ)
  9. ;%938 : 月
  10. ;%939 : 日     になっています。例に習って自分なりに設定してみてください。
  11.  
  12. ECHO "^G\r"
  13. IF %938==1 && %939==1
  14.  %1=%937-88
  15.  ECHO "明けましておめでとうございます   平成 % 年元旦"
  16. ELSEIF %938==2 && %939==14
  17.  ECHO "Give me chocolate!!  進駐軍さま－  ｳｿｳｿ"
  18. ELSEIF %938==3 && %939==14
  19.  ECHO "おっと、MEKALINさんにプレゼントしなくっちゃ"
  20. ELSEIF %938==6 && %939==28
  21.  ECHO "MEKALINさん、お誕生日おめでとうございます"
  22. ELSEIF %938==7 && %939==7
  23.  ECHO "今日はタナボタ、じゃなくて七夕かぁ 晴れるといいけど･･･"
  24. ELSEIF %938==7 && %939==29
  25.  %1=%937-67
  26.  ECHO "おおっ、今日はおいらの %1 才の誕生日だ！！"
  27. ELSEIF %938==8 && %939==6
  28.  %1=%937-45
  29.  ECHO "今日は %1 回目の広島原爆の日･･･"
  30. ELSEIF %938==8 && %939==9
  31.  %1=%937-45
  32.  ECHO "今日は %1 回目の長崎原爆の日･･･"
  33. ELSEIF %938==8 && %939==12
  34.  %1=%937-85
  35.  ECHO " %1 年前の今日、日航機墜落事故･･･(群馬県･御巣鷹の尾根)"
  36. ELSEIF %938==8 && %939==15
  37.  %1=%937-45
  38.  ECHO "今日は %1 回目の終戦の日、平和がなによりですね"
  39. ELSEIF %938==9 && %939==1
  40.  ECHO "天災は忘れた頃にやって来る  気をつけようね"
  41. ELSEIF %938==10 && %939==10
  42.  ECHO "おーい、今日は体育の日だぞー、いい汗流そうぜ！！"
  43. ELSEIF %938==12 && %939==24
  44.  ECHO "メリークリスマス！！  プレゼントもらえるかな？"
  45. ELSEIF %938==12 && %939==31
  46.  ECHO "今年ももう終わり･･･ よいお年をお迎え下さい"
  47. ELSE
  48.  ECHO "今日は･･･何もないのかな？ DAY.AUTを色々設定して活用しよう！"
  49. ENDIF
  50. ECHO "\r"
  51.  
  52. %13=0
  53. WHILE %13<12    ;%1 から %12 まで 初期化
  54. %13=%13+1
  55. %[%13]=0
  56. ENDWHILE
  57.  
  58. %13=0
  59. WHILE %21>(%13+1)    ;設定日をその年の元旦から数えた日数(%14)
  60. %13=%13+1
  61. %[%13]=1
  62. ENDWHILE
  63. %14=%1*31+%2*28+%3*31+%4*30+%5*31+%6*30+%7*31+%8*31+%9*30+%10*31+%11*30+%12*31+%22
  64.  
  65. %13=0
  66. WHILE %13<12    ;%1 から %12 まで 初期化
  67. %13=%13+1
  68. %[%13]=0
  69. ENDWHILE
  70.  
  71. %13=0
  72. WHILE %938>(%13+1)    ;アクセス日をその年の元旦から数えた日数(%15)
  73. %13=%13+1
  74. %[%13]=1
  75. ENDWHILE
  76. %15=%1*31+%2*28+%3*31+%4*30+%5*31+%6*30+%7*31+%8*31+%9*30+%10*31+%11*30+%12*31+%939
  77.  
  78. %13=12*(%20-91)+%21        ;設定日を1991.1 より起算した月数
  79. IF %13<=14            ;'92.2まで
  80.  %17=0
  81. ELSEIF %13>14 && %13<=62    ;'92.3から'96.2まで
  82.  %17=1
  83. ELSEIF %13>62 && %13<=110    ;'96.3から'00.2まで
  84.  %17=2
  85. ENDIF
  86.  
  87. %13=12*(%937-91)+%938        ;アクセス日を1991.1 より起算した月数
  88. IF %13<=14
  89.  %18=0
  90. ELSEIF %13>14 && %13<=62
  91.  %18=1
  92. ELSEIF %13>62 && %13<=110
  93.  %18=2
  94. ENDIF
  95.  
  96. %14=%14+%17    ;閏年補正
  97. %15=%15+%18
  98.  
  99. IF (365*(%20-%937)+%14-%15) > 0 && $1!=""
  100.  %18=365*(%20-%937)+%14-%15
  101.  ECHO "\r^G$1まで あと %18 日\r"
  102. ELSEIF (365*(%20-%937)+%14-%15)==0
  103.  ECHO "\r^Gぎょぎょっ！ 今日は $1 の日じゃないか！！\r"
  104. ENDIF
  105. END
  106.  
  107.